home *** CD-ROM | disk | FTP | other *** search
- @ECHO OFF
-
- REM
- REM INSTALL.BAT
- REM
- REM Copy *.BAS and *.DLL files
- REM
-
- IF "%1" == "16" GOTO WIN16
- IF "%1" == "32" GOTO WIN32
- GOTO USAGE
-
- :WIN16
- ECHO ...Copying Win16 .BAS files
- echo COPY WSC16.BAS WSC4VB.BAS
- copy WSC16.BAS WSC4VB.BAS > NUL
- echo COPY MIO16.BAS MIO.BAS
- copy MIO16.BAS MIO.BAS > NUL
- echo COPY XYDRV16.BAS XYDRV.BAS
- copy XYDRV16.BAS XYDRV.BAS > NUL
- echo COPY ASDRV16.BAS ASDRV.BAS
- copy ASDRV16.BAS ASDRV.BAS > NUL
- echo COPY ERRORS16.BAS ERRORS.BAS
- copy ERRORS16.BAS ERRORS.BAS > NUL
- GOTO COPYDLLS
-
- :WIN32
- ECHO ...Copying Win32 .BAS files
- echo COPY WSC32.BAS WSC4VB.BAS
- copy WSC32.BAS WSC4VB.BAS > NUL
- echo COPY MIO32.BAS MIO.BAS
- copy MIO32.BAS MIO.BAS > NUL
- echo COPY XYDRV32.BAS XYDRV.BAS
- copy XYDRV32.BAS XYDRV.BAS > NUL
- echo COPY ASDRV32.BAS ASDRV.BAS
- copy ASDRV32.BAS ASDRV.BAS > NUL
- echo COPY ERRORS32.BAS ERRORS.BAS
- copy ERRORS32.BAS ERRORS.BAS > NUL
- :COPYDLLS
- if (%windir%) == () goto WIN31
- echo COPY WSC32.DLL %windir%
- copy WSC32.DLL %windir% > NUL
- echo COPY MIO32.DLL %windir%
- copy MIO32.DLL %windir% > NUL
- echo COPY XYDRV32.DLL %windir%
- copy XYDRV32.DLL %windir% > NUL
- echo COPY ASDRV32.DLL %windir%
- copy ASDRV32.DLL %windir% > NUL
- :WIN31
- echo COPY WSC16.DLL %windir%
- copy WSC16.DLL %windir% > NUL
- echo COPY MIO16.DLL %windir%
- copy MIO16.DLL %windir% > NUL
- echo COPY XYDRV16.DLL %windir%
- copy XYDRV16.DLL %windir% > NUL
- echo COPY ASDRV16.DLL %windir%
- copy ASDRV16.DLL %windir% > NUL
- echo WSC4VB installation completed.
- goto DONE
- :USAGE
- ECHO ERROR. Usage is:
- ECHO 'INSTALL 16' Win16 Visual Basic (VB 3)
- ECHO 'INSTALL 32' Win32 Visual Basic (VB 4+)
- :DONE
-
-